0 REM ********************************* 1 REM **MASCHINENCODE SORTIERROUTINE ** 2 REM ** ** 3 REM ** VON MARCUS RICKERT ** 4 REM ********************************* 100 DATA169,3,141,8,3,169,193,141,9,3,96,160,1,177,122,1395 110 DATA201,83,240,3,76,228,167,200,177,122,201,69,208,3,76,2054 120 DATA218,197,201,79,208,239,32,115,0,32,115,0,32,115,0,1583 130 DATA32,253,174,32,236,196,32,36,195,76,88,193,32,253,174,2002 140 DATA32,138,173,32,247,183,165,20,141,0,192,165,21,141,1,1651 150 DATA192,32,253,174,32,138,173,32,247,183,165,20,141,2,192,1976 160 DATA165,21,141,3,192,96,32,49,193,32,253,174,32,158,183,1724 170 DATA142,4,192,224,2,144,7,162,120,160,197,76,250,196,32,1908 180 DATA199,195,142,6,192,140,7,192,141,8,192,160,0,177,122,1873 190 DATA240,4,201,58,208,8,169,0,141,11,192,76,162,193,32,1695 200 DATA253,174,32,236,196,32,36,195,32,199,195,142,9,192,140,2063 210 DATA10,192,141,11,192,169,0,141,5,192,160,0,32,60,197,1502 220 DATA160,2,32,60,197,169,0,141,246,192,141,247,192,160,18,1957 230 DATA32,80,197,144,3,76,174,167,160,16,32,80,197,162,16,1536 240 DATA160,18,32,42,197,142,20,192,140,21,192,162,20,160,246,1744 250 DATA32,154,196,240,219,48,217,173,16,192,141,12,192,173,17,2022 260 DATA192,141,13,192,173,18,192,141,14,192,173,19,192,141,15,1808 270 DATA192,32,239,195,160,6,174,8,192,232,138,162,12,32,1,1775 280 DATA197,32,47,196,240,23,72,173,4,192,208,6,104,16,14,1524 290 DATA76,27,194,104,48,8,162,12,32,227,196,76,251,193,160,1766 300 DATA6,174,8,192,232,138,162,14,32,1,197,32,47,196,240,1671 310 DATA23,72,173,4,192,208,6,104,48,14,76,67,194,104,16,1301 320 DATA8,162,14,32,209,196,76,35,194,162,12,160,14,32,154,1460 330 DATA196,240,2,16,103,160,6,174,8,192,232,138,162,12,32,1673 340 DATA1,197,134,251,132,252,160,6,174,8,192,232,138,162,14,2053 350 DATA32,1,197,134,253,132,254,172,8,192,32,105,197,173,11,1893 360 DATA192,240,38,160,9,174,11,192,232,138,162,12,32,1,197,1790 370 DATA134,251,132,252,160,9,174,11,192,232,138,162,14,32,1,1894 380 DATA197,134,253,132,254,172,11,192,32,105,197,162,12,32,227,2112 390 DATA196,162,14,32,209,196,162,14,160,12,32,154,196,48,3,1590 400 DATA76,251,193,162,14,160,16,32,42,197,142,20,192,140,21,1658 410 DATA192,162,18,160,12,32,42,197,142,22,192,140,23,192,162,1688 420 DATA20,160,22,32,154,196,16,34,162,12,160,18,32,154,196,1368 430 DATA16,10,160,12,32,60,197,160,18,32,60,197,173,14,192,1333 440 DATA141,18,192,173,15,192,141,19,192,76,200,193,162,16,160,1890 450 DATA14,32,154,196,16,10,160,16,32,60,197,160,14,32,60,1153 460 DATA197,173,12,192,141,16,192,173,13,192,141,17,192,76,200,1927 470 DATA193,169,4,141,20,192,162,0,134,3,134,4,32,115,0,1303 480 DATA240,63,201,58,240,59,201,36,240,20,201,37,240,24,201,2061 490 DATA44,240,47,21,3,149,3,224,2,240,32,232,76,47,195,1555 500 DATA169,2,141,20,192,76,99,195,169,1,141,20,192,165,3,1585 510 DATA9,128,133,3,165,4,9,128,133,4,76,47,195,162,158,1354 520 DATA160,197,76,250,196,165,47,133,251,165,48,133,252,76,164,2313 530 DATA195,160,0,177,251,197,3,208,10,200,177,251,197,4,208,2238 540 DATA3,76,183,195,160,2,24,165,251,113,251,170,8,200,40,1841 550 DATA165,252,113,251,133,252,138,133,251,165,251,197,49,208,212,2770 560 DATA165,252,197,50,208,206,162,143,160,197,76,250,196,160,4,2426 570 DATA177,251,201,1,208,1,96,162,185,160,197,76,250,196,24,2185 580 DATA160,6,177,251,237,2,192,8,136,177,251,40,237,3,192,2069 590 DATA176,7,162,0,169,18,76,59,164,24,165,251,105,7,170,1553 600 DATA165,252,105,0,168,173,20,192,96,24,173,16,192,109,18,1703 610 DATA192,170,173,17,192,109,19,192,74,141,21,192,138,106,141,1877 620 DATA20,192,174,8,192,232,138,160,6,162,20,32,1,197,134,1668 630 DATA40,132,41,173,8,192,201,4,208,4,138,76,162,187,174,1740 640 DATA8,192,138,168,177,40,149,97,202,136,16,248,96,134,40,1841 650 DATA132,41,173,8,192,201,2,240,9,201,1,240,65,138,32,1675 660 DATA91,188,96,160,1,177,40,133,3,200,177,40,133,4,160,1603 670 DATA0,76,98,196,177,3,209,98,240,8,176,3,169,1,96,1550 680 DATA169,255,96,200,152,160,0,209,40,240,8,197,97,240,4,2067 690 DATA168,76,83,196,177,40,197,97,240,5,176,229,76,91,196,2047 700 DATA169,0,96,165,97,141,21,192,165,98,141,20,192,160,0,1657 710 DATA177,40,141,23,192,200,177,40,141,22,192,162,20,160,22,1709 720 DATA189,0,192,217,0,192,208,11,189,1,192,217,1,192,208,2009 730 DATA3,76,124,196,189,1,192,48,23,185,1,192,48,164,56,1498 740 DATA189,0,192,249,0,192,189,1,192,249,1,192,144,152,76,2018 750 DATA91,196,185,1,192,16,144,76,183,196,56,189,0,192,233,1950 760 DATA1,157,0,192,189,1,192,233,0,157,1,192,96,254,0,1665 770 DATA192,208,3,254,1,192,96,165,122,56,233,1,133,122,165,1943 780 DATA123,233,0,133,123,96,134,34,132,35,76,71,164,133,40,1527 790 DATA189,0,192,133,113,189,1,192,133,114,169,0,133,41,152,1751 800 DATA72,32,87,179,134,40,132,41,104,168,24,165,40,121,0,1339 810 DATA192,170,165,41,121,1,192,168,96,56,185,0,192,253,0,1832 820 DATA192,72,185,1,192,253,1,192,168,104,170,96,174,5,192,1997 830 DATA185,0,192,157,25,192,185,1,192,157,136,192,232,142,5,1993 840 DATA192,96,174,5,192,202,16,2,56,96,189,25,192,153,0,1590 850 DATA192,189,136,192,153,1,192,142,5,192,24,96,177,251,170,2112 860 DATA177,253,145,251,138,145,253,136,16,243,96,255,87,82,79,2356 870 DATA78,71,32,83,79,82,84,73,78,71,32,68,73,82,69,1055 880 DATA67,84,73,79,206,65,82,82,65,89,32,78,79,84,32,1197 890 DATA70,79,85,78,196,87,82,79,78,71,32,65,82,82,65,1231 900 DATA89,32,78,65,77,197,87,82,79,78,71,32,73,78,68,1186 910 DATA69,216,79,78,76,89,32,79,78,69,32,68,73,77,69,1184 920 DATA78,83,73,79,78,32,65,82,82,65,217,0,255,0,255,1444 930 DATA0,255,32,255,0,32,115,0,32,115,0,32,115,0,32,1015 940 DATA253,174,32,236,196,32,36,195,32,49,193,32,199,195,142,1996 950 DATA6,192,140,7,192,141,8,192,32,253,174,32,158,173,162,1862 960 DATA2,160,0,32,154,196,16,7,162,174,160,197,76,250,196,1782 970 DATA173,8,192,201,2,240,20,32,141,173,173,8,192,201,4,1760 980 DATA240,23,32,170,177,133,97,132,98,76,57,198,32,163,182,1810 990 DATA133,97,165,34,133,98,165,35,133,99,174,8,192,232,138,1836 1000 DATA160,6,162,0,32,1,197,142,9,192,140,10,192,174,9,1426 1010 DATA192,172,10,192,32,47,196,240,42,162,0,160,2,32,154,1633 1020 DATA196,240,26,162,0,32,227,196,56,173,9,192,109,8,192,1818 1030 DATA141,9,192,173,10,192,105,0,141,10,192,76,75,198,169,1683 1040 DATA255,160,255,76,134,198,173,1,192,172,0,192,32,145,179,2164 1050 DATA169,0,133,13,133,14,169,73,133,69,169,78,133,70,32,1388 1060 DATA231,176,166,71,164,72,32,212,187,76,174,167,255,0,255,2238 1100 ZN=100:Z=49400:RESTORE:REM ** EINLESEN DER WERTE ** 1110 PR=0 1120 FORS=0TO14:READX:PR=PR+X:POKEZ+S,X:NEXTS 1130 READX:IFX=PRTHEN1150 1140 PRINTCHR$(14)"[208]RUEFSUMMEN-[198]EHLER IN [218]EILE";ZN:END 1150 ZN=ZN+10:Z=Z+15 1160 IFZ<>50855THEN1110 1170 PRINT"FERTIG" 1180 INPUT"CASSETTE(1) ODER DISKETTE(8)";PN 1190 POKE251,PN:REM ** ABSPEICHERN ALS ABSOLUTPROGRAMM ** 1200 POKE252,PEEK(45):POKE253,PEEK(46) 1210 POKE43,248:POKE44,192 1220 POKE45,172:POKE46,198 1230 IFPEEK(251)=1THENSAVE"EXSORT",1,2 1240 IFPEEK(251)<>1THENSAVE"@:EXSORT",PEEK(251) 1250 POKE43,1:POKE44,8:POKE45,PEEK(252):POKE46,PEEK(253)